home *** CD-ROM | disk | FTP | other *** search
/ Rat Attack (UK) (Digital Press Kit - Summer '99) / Rat Attack (UK) (Digital Press Kit - Summer '99).bin / RAT01.DIR / 00001_Script_Main Movie next >
Text File  |  1999-04-26  |  2KB  |  110 lines
  1. --Main Movie Script
  2.  
  3.  
  4. on initialize
  5.   
  6.   
  7.   global count, logoSprite
  8.   
  9.   set count = 1
  10.   set logoSprite to 10
  11.   set the soundLevel = 7
  12.   
  13.   
  14.   
  15. end
  16.  
  17.  
  18. on chooseImage
  19.   global count,logoSprite 
  20.   puppetSprite logoSprite, TRUE
  21.   
  22.   
  23.   if count = 1 then
  24.     set the castNum of sprite logoSprite to (the castNum of sprite logoSprite + 1)
  25.     set count = 2
  26.     
  27.   else
  28.     if count = 2 then
  29.       set the castNum of sprite logoSprite to (the castNum of sprite logoSprite + 1)
  30.       set count = 3
  31.     else
  32.       if count = 3 then
  33.         set the castNum of sprite logoSprite to (the castNum of sprite logoSprite - 2)
  34.         set count = 1
  35.       end if
  36.     end if
  37.   end if
  38.   -- put the castNum of sprite logoSprite
  39.   
  40.   
  41. end
  42.  
  43. on chooseImage2
  44.   global count,logoSprite 
  45.   puppetSprite logoSprite, TRUE
  46.   
  47.   
  48.   if count = 1 then
  49.     set the castNum of sprite logoSprite to (the castNum of sprite logoSprite + 1)
  50.     set count = 2
  51.     
  52.   else
  53.     if count = 2 then
  54.       set the castNum of sprite logoSprite to (the castNum of sprite logoSprite - 1)
  55.       set count = 1 
  56.     end if
  57.   end if
  58.   -- put the castNum of sprite logoSprite
  59.   
  60.   
  61. end
  62.  
  63.  
  64. on chooseImage11
  65.   global count,logoSprite 
  66.   puppetSprite logoSprite, TRUE
  67.   
  68.   if count > 14 then
  69.     set the castNum of sprite logoSprite to (the number of cast "Gbrati")
  70.      set count = 1
  71.   else
  72.     set the castNum of sprite logoSprite to (the castNum of sprite logoSprite + 1)
  73.     set count = count + 1 
  74.   end if
  75. end
  76.  
  77.  
  78.  
  79.  
  80. on doSound 
  81.   global mySound
  82.   set mySound = "clik"
  83.   
  84.   set theRandom = random(6)
  85.   
  86.   if theRandom = 1 then
  87.     set mySound = "bird"
  88.   else
  89.     if theRandom = 2 then
  90.       set mySound = "iron"
  91.     else
  92.       if theRandom = 3 then
  93.         set mySound = "vox"
  94.       else
  95.         if theRandom = 4 then
  96.           set mySound = "squeek"
  97.         else
  98.           if theRandom = 5 then
  99.             set mySound = "punch"
  100.           else
  101.             if theRandom = 6 then
  102.               set mySound = "swipe"
  103.             end if
  104.           end if
  105.         end if
  106.       end if
  107.     end if
  108.   end if
  109.   
  110. end